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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 
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® 

* 

® 

: * 
!® THIS SOFTWARE a FURNISHED UNDER A LICENSE AND MAY BE eS AND soree ® 
't ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
't OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!t TRANSFERRED. . 
* 

!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
® 

'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
te SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
® 
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FACILITY: EDT -- The DEC Standard Editor 

| ABSTRACT: 
Create a range node with one numeric value. 

i ENVIRONMENT: Runs at any access mode - AST reentrant 

i AUTHOR: Bob Kushlis, CREATION DATE: December 12, 1978 

{| MODIFIED BY: 

Bae - Original. DJS 25-Feb-1981. This module yee created by 
Sntracting rout tas NUM_RANGE from module PARSER. 


1-002 - Regularize headers. “JBS 12-Mar- 
Ring - Improve the appearance of the Listing. JBS 17-Jun-1983 
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Dd da 
EDTSPRNUMRAN = create a range node 16-Sep =138¢ 9] 30:9 VAX-11 s-32 V4. 
14-Sep 2: DISK$V men TER: CEDT 
ZTITLE "EDTSPRNUMRAN = create a range node‘ 
MODULE EDTSPRNUMRAN ( ! Create a range node 
woe = *v04-000' ! File: PRNUMRAN.BLI Edit: 


ones Page 
SRC JPRNUMRAN.BLI;1 
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EDTSPRNUMRAN EDTSPRNUMRAN = create a range node Jo~se0= 1386 93 :40:0 VAX=-11 Bliss-32 ye Ores Page 3. 3 
v04-000 EDTSSPA_CRERNGNOD = create a range node 14-Sep-1984 12:24:1 DISKSVMSMASTER: CEDT.SRCJPRNUMRAN.BLI;1 (3) | 
; B6 0346 : ZSBTTL "EDTSSPA_CRERNGNOD = create a range node’ ¢ 
; «688 941 1 GLOBAL ROUTINE EDTSS$PA_CRERNGNOD ( ' Create a range node | ‘ 
; pag 1 RANTYP ! Type of range ° 
; 0945 1 = ‘ 
; Wi 0944 1 ‘ 
; 35 0945 1 !++ ‘ 
: ez ek : FUNCTIONAL DESCRIPTION: : 
; a2 bees : Create a range node of the type which has one numeric value. ‘ 
s oF 8329 1 ! FORMAL PARAMETERS: ‘ 
; 951 1! ‘ 
BOA... bons 1 ! RANTYP Type of range ° 
: 100 0953 1! : 
; 101 0954 1 ! IMPLICIT INPUTS: ; 
; 106 0955 1! ‘ 
; 39 0956 1! EDT$$2Z_PA_CURRNG ‘ 
; 104 0957 1! ‘ 
; 105 0958 1 | IMPLICIT OUTPUTS: : 
; 106 0959 1! ‘ 
: 107 0960 1! EDT$$2_PA_CURRNG ‘ 
: 108 0961 1! ‘ 
; 109 0962 1 ! ROUTINE VALUE: : 
; 10 09635 1! ‘ 
3 19) 0964 1! Q = unable to create the range node : 
; We 0965 1! 1 = range node created ¢ 
; 3 0966 1! ‘ 
3; 114 0967 1 ! SIDE EFFECTS: : 
3; 499 0968 1! ‘ 
: 116 0969 1! NONE ‘ 
; Fiz 0970 1! ° 
; #118 0971 1 !-- 
3: 119 0972 1 
; ta 0973 2 BEGIN 
; Yer 0974 2 
: \s¢ 0975 2 EXTERNAL ROUTINE 
; 2 0976 3 EDTSSPA_NEW_NOD; ! Create a semantic node 
3 ise 0977 a 
s tes 0978 2 EXTERNAL 
; 1$6 3444 EDT$$Z_PA_CURRNG : REF NODE_BLOCK; ! the current rangv node 
s Yea 0981 LOCAL 
3 194 0386 NEWRANGE : REF NODE_BLOCK; 
: 13 34-1 IF (CNEWRANGE = EDTSS$PA_NEW_NOD ()) EQL 0) THEN RETURN (0); 
3 138 0986 EDTSSCPY_MEM (NODE SIZE, sERTSS2 PA_CURRNG, .NEWRANGE) ; 
: (134 r+ Hf EDT$$Z_PA_CURRNG [CSUB_RANGE) = .REWRANGE; 
; «135 9 EDT$$Z_PA_CURRNG CRAN_TYPE] = .RANTYP; 
3 136 0989 é EDT$$2-PA-CURRNG CRAN-VAL) = 1; 
s 137 0990 RETURN (13; z 
3 138 0991 +1 ND; ! of routine EDTS$PA_CRERNonc 
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TSPRNUMRAN EDTSPRNUMRAN = create a range node 
04-000\ 


; Routine Size: 45 bytes, Routine Base: _EDTSCODE + 0000 


; 139 


0992 1 
140 0995 1 !<BLF/PAGE> 


EDTSPRNUMRAN EDTSPRNUMRAN = create a range node 18-se Sep-1 VAX-11 Bliss-32 V4. 
104-000 ED DISSPA” _CRERNGNOD - creates range node Sep-1 38 93: $2: § DISKSVMSMASTER: CEDT. OSRCIPRNUMRAN. BLI; had (3 
.EXTRN EDTS$$PA_NEW_NOD 
 BXTRN EDT$$Z_PA_CORRNG 
.PSEC) _EDTSCODE,NOWRT, SHR, PIC,2 
OOFC ENTRY EDTSSPA SPaEuck Save R2,R3,R4,R5,R6,R7 ; 
000000006 99 99 F CALLS prs 6p ; 
iC ° C BeOt f ; ; NUR : 
56 000000006 p MOVL EDTSSZ PA_CURRNG, R6 : 
67 66 | MOVC3 (R6)> (NEWRANGE) : 
08 Ab D 1 OVL NEGRANGE.” ) : 
01 Ab 06 AC 9 9019 MOVB NTYP, 1( : 
04 Ab 01 DO 9002 MOVL » &R : 
50 01 D0 00026 MOVL ‘ : 
04 909 9 RET : 
50 D4 0002A 1$ CLRL = RO : 
04 0002C RET ; 
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H 2 | 
EDTSPRNUMRAN  EDTSPRNUMRAN = create a range node 16-Sep-1984 VAX-11 Bliss-32 V4.0-74 Pa 
v04-000 EDTSSPA_CRERNGNOD - creates range node 14-Sep-1 71382 3: $0: 8 DISKSVMSMASTER: CEDT 1 SRCSPRNUMRAN.BLIL3 > > 
: 148 0994 1 END ! of module EDTSPRNUMRAN | 
: 14 336 0 ELUDON | 


PSECT SUMMARY 
Name Bytes Attributes 
-EDTSCODE 45 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


| 
bere (a Bee ee ni Syabols eoe-e--- Pages Processing | 
: File Total Loaded Percent Mapped Time 

; _$255$DUA28:CEDT.SRCJEDT.L32;1 377 49 1 40 00:00.2 

3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 36 7 00:00.1 
Hy COMMAND QUALIFIERS 

: Pe SSP EMECR WEP ELD. DUE TEAL, OFTEN ZE 2 /UOTRACERACE/L L691 SSS: PRIRRAN/ERI SOR IS 1 PRIA MSRC$:PRNUMRAN.BLI/UPDATE=(ENH$:PRNU 

3; Size: 45 code. + 0 data bytes 

3; Run Time 

3; Elapsed Hees 00: 1 

3 Lines/CPU Min: 13" 

3; Lexemes/CPU-Min: 14841 

: ry Used: 96 pages 

3; Compilation Complete 


~ DIGITAL EQUIPMENT CORPORATION 
CONFIDENTIAL AND PROPRIETARY 


0138 Vaxzuns va _o 


